!----------------------------------------------------------------------- 
!BOP
! !ROUTINE:  initcom --- Initialize model dynamics
!
! !INTERFACE:

subroutine initcom
  use commap, only : clat, clon
  nullify(clat)
  nullify(clon)


end subroutine initcom

